(prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?\n\n"
"NOTE: If you are unsure if your controller will work correctly with "
"the controller settings, you should select \"NO\"!" )
(help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount CacheCDFS.")
(default 1)
)
)
(if #autoMount
(set #mountDirectory "DEVS:DOSDrivers")
)
(if (not #autoMount)
(set #mountDirectory "SYS:Storage/DOSDrivers")
)
(set #CDDevice_NC
(askstring
(prompt "\n\nWhat is the name for the AmigaDOS device?\n\n"
"(The trailing colon MUST NOT be present)"
)
(default #CDDevice_NC )
(help "\n\nThis is the name under which AmigaDOS will reference the "
"CD-Rom as. While usually "
#CDDevice_NC
", it can be any name you choose. "
"\n\nThe trailing : (colon) MUST NOT be present." )
)
)
(set #CDDevice (cat #CDDevice_NC ":") )
(set #CDFSDir
(askdir
(prompt "\n\nSpecify the directory in which the CacheCDFS support programs will be placed:" )
(help "\n\nCacheCDFS contains a number of support programs. This directory will specifiy where the programs will be placed. If you need, create a separate directory for the files.")
(default @default-dest)
(newpath)
)
)
(set @default-dest #CDFSDir)
(makeassign "CacheCDFS" #CDFSDir (safe))
(user #theirlevel)
(if (exists "CacheCDFSInst:C/Mount")
(
(copylib
(source "CacheCDFSInst:C/Mount")
(dest "C:")
))
)
(protect "l:CacheCDFS" "rwed" )
(copylib
(prompt "\n\nCopying CDROM FileSystem to the l: directory.\n" )
(source "CacheCDFSInst:l/CacheCDFS")
(dest "l:")
(confirm)
(help "\n\nThis will copy over the CDROM FileSystem program to your "
"l: directory\n\nThis is an essential step in the installation "
"process." )
)
(if (exists "L:TandemCacheCDFS" )
(
((set #DeleteOld
(askbool
(prompt "\n\n\"L:TandemCacheCDFS\" is present from an earlier installation."
"\n\nDelete \"L:TandemCacheCDFS\" ?" )
(help "\n\nClick \"YES\" if \"L:TandemCacheCDFS\" should be "
"deleted and \"NO\" if not!")
(default 1)
)
))
(if #DeleteOld
((protect "L:TandemCacheCDFS" "rwed" )
(delete "L:TandemCacheCDFS" )
))
))
(if (exists "L:DemoCacheCDFS" )
(
((set #DeleteOld
(askbool
(prompt "\n\n\"L:DemoCacheCDFS\" is present from an earlier installation."
"\n\nDelete \"L:DemoCacheCDFS\" ?" )
(help "\n\nClick \"YES\" if \"L:DemoCacheCDFS\" should be "